conn.asp

'̳ƣһվж̳ĳɲͬ
Const Forum_CacheName = "asp163"
'ģʽԵʱ1еʱΪ0,Ϣڰȫ


login.asp

޸һ һ

	'=SessionID+ʱ+ʱ+ID
	Session(Dvbbs.CacheName & "UserID") = Split(StatUserID & "_" & Now & "_" & Now & "_" & Dvbbs.BoardID,"_")
	Response.Cookies(Dvbbs.Forum_sn).Expires=DateAdd("s",3600,Now())
	'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath





¼У


'	If cint(Dvbbs.Forum_Setting(25))=1 Then
'
'	Else
'		Response.Cookies(Dvbbs.Forum_sn).path=dvbbs.cookiepath
'		Response.Cookies(Dvbbs.Forum_sn)("username")=""
'		Response.Cookies(Dvbbs.Forum_sn)("password")=""
'		Response.Cookies(Dvbbs.Forum_sn)("userclass")=""
'		Response.Cookies(Dvbbs.Forum_sn)("userid")=""
'		Response.Cookies(Dvbbs.Forum_sn)("userhidden")=""
'		Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""
		

'		Dim StatUserID,UserSessionID
'		StatUserID = Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("StatUserID")))
'		If IsNumeric(StatUserID) = 0 or StatUserID = "" Then
'			StatUserID = Replace(Dvbbs.UserTrueIP,".","")
'			UserSessionID = Replace(Startime,".","")
'			If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = 0
'			StatUserID = Ccur(StatUserID) + Ccur(UserSessionID)
'		End If
'		StatUserID = Ccur(StatUserID)
'		'=SessionID+ʱ+ʱ+ID
'		Session(Dvbbs.CacheName & "UserID") = Split(StatUserID & "_" & Now & "_" & Now & "_" & Dvbbs.BoardID,"_")
'		Response.Cookies(Dvbbs.Forum_sn).Expires=DateAdd("s",3600,Now())
'		Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
'		Response.Cookies(Dvbbs.Forum_sn)("StatUserID") = StatUserID
'		Response.Cookies(Dvbbs.Forum_sn)("usercookies") = 0
'		Response.Cookies(Dvbbs.Forum_sn)("username") = username
'		Response.Cookies(Dvbbs.Forum_sn)("password") = TruePassWord
'		Response.Cookies(Dvbbs.Forum_sn)("userclass") = userclass
'		Response.Cookies(Dvbbs.Forum_sn)("userid") = dvbbs.userid
'		Response.Cookies(Dvbbs.Forum_sn)("userhidden") = 2
'		Dvbbs.Execute("delete from dv_online where username='"&dvbbs.membername&"' Or id="&StatUserID&"")
'	End If



޸




	'Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath                  һ
	Response.Cookies(Dvbbs.Forum_sn)("username") = regname
	Response.Cookies(Dvbbs.Forum_sn)("userid") = Dvbbs.UserID
	Response.Cookies(Dvbbs.Forum_sn)("password") = TruePassWord
	Response.Cookies(Dvbbs.Forum_sn)("userclass") = userclass
	Response.Cookies(Dvbbs.Forum_sn)("userhidden") = userhidden

£
dim UserLevel,rs1,rss1
set rs1=server.createobject("adodb.recordset")
		rss1="select * from dv_user where username='" & regname &"'"
		rs1.open rss1,Conn,1,1
UserLevel=rs1("UserLevel")
	Response.Cookies(Dvbbs.Forum_sn)("UserLevel") = UserLevel




logout.asp

޸һ

	Dvbbs.value=MyBoardOnline.Forum_Online
	'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath                    һ
	Response.Cookies(Dvbbs.Forum_sn)("username")=""



    %>
    <meta HTTP-EQUIV=REFRESH CONTENT="2; URL=index.asp">
    <%


%>




mymodify.asp


		End Select
		'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath                    һ
	End If




reg.asp

޸һ

		rs("UserIM")=UserIM
		rs("BeginDate")=formatdatetime(now(),2)               


޸Ķ


		rs("UserFav")="İ,ҵĺ,"
		rs("IsChallenge")=0
		rem ңΪMy Power޸                           
		rs("UserLevel")=999
		rs("ArticleCount")=0
		rs("ArticleChecked")=0                             ...
		rs("ChargeType")=1
		rs("UserPoint")=100
		rs("Valid_Num")=30
		rs("Valid_Unit")=1
rem ңΪMy Power޸                                          


޸

	Else
		'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath           
		Response.Cookies(Dvbbs.Forum_sn)("username")=""


޸ģ

		Response.Cookies(Dvbbs.Forum_sn)("userhidden") = 2
		'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath            
		Dvbbs.membername=username







